﻿Public Class F08_V_reverso_

    Private Sub txtlecompr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlecompr.TextChanged

    End Sub

    Private Sub btnAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnverso.Click
        Me.Close()
        F08_V_Anverso_.Show()
    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
        Dim oF08VRNegocios As New Negocios.NF08_VR
        Dim oF08VR As New Entidades.EF08Vehiculos
        oF08VR.porvendd = UCase(txtporvend.Text)
        oF08VR.apenomvendd = UCase(txtapenomvend.Text)
        oF08VR.solterovendd = UCase(txtsolterovend.Text)
        oF08VR.casadovendd = UCase(txtcasadovend.Text)
        oF08VR.viudovendd = UCase(txtviudovend.Text)
        oF08VR.divvendd = UCase(txtdivvend.Text)
        oF08VR.numnupciavendd = UCase(txtnumnupciavend.Text)
        oF08VR.apevendd = UCase(txtapevend.Text)
        oF08VR.dnivendd = UCase(txtdnivend.Text)
        oF08VR.levendd = UCase(txtlevend.Text)
        oF08VR.lcvendd = UCase(txtlcvend.Text)
        oF08VR.dniextrvendd = UCase(txtdniextrvend.Text)
        oF08VR.ciextrvendd = UCase(txtciextrvend.Text)
        oF08VR.pasapvendd = UCase(txtpasapvend.Text)
        oF08VR.numdocvendd = UCase(txtnumdocvend.Text)
        oF08VR.autoridadvendd = UCase(txtautoridadvend.Text)
        oF08VR.apenomconyvendd = UCase(txtapenomconyvend.Text)
        oF08VR.apeapodconyvendd = UCase(txtapeapodconyvend.Text)
        oF08VR.dniconyvendd = UCase(txtdniconyvend.Text)
        oF08VR.leconyvendd = UCase(txtleconyvend.Text)
        oF08VR.lcconyvendd = UCase(txtlcconyvend.Text)
        oF08VR.dniextrconyvendd = UCase(txtdniextrconyvend.Text)
        oF08VR.ciextrconyvendd = UCase(txtciextrconyvend.Text)
        oF08VR.pasapconyvendd = UCase(txtpasapconyvend.Text)
        oF08VR.numdocconyvendd = UCase(txtnumdocconyvend.Text)
        oF08VR.autoridadconyvendd = UCase(txtautoridadconyvend.Text)
        oF08VR.porconddd = UCase(txtporccond.Text)
        oF08VR.apenomconddd = UCase(txtapenomcond.Text)
        oF08VR.solteroconddd = UCase(txtsolterocond.Text)
        oF08VR.casadoconddd = UCase(txtcasadocond.Text)
        oF08VR.viudoconddd = UCase(txtviudocond.Text)
        oF08VR.divconddd = UCase(txtdivcond.Text)
        oF08VR.numnupciaconddd = UCase(txtnumnupciacond.Text)
        oF08VR.apeconddd = UCase(txtapecond.Text)
        oF08VR.dniconddd = UCase(txtdnicond.Text)
        oF08VR.leconddd = UCase(txtlecond.Text)
        oF08VR.lcconddd = UCase(txtlccond.Text)
        oF08VR.dniextrconddd = UCase(txtdniextrcond.Text)
        oF08VR.ciextrconddd = UCase(txtciextrcond.Text)
        oF08VR.pasapconddd = UCase(txtpasapcond.Text)
        oF08VR.numdocconddd = UCase(txtnumdoccond.Text)
        oF08VR.autoridadconddd = UCase(txtautoridadcond.Text)
        oF08VR.apenomconyconddd = UCase(txtapenomconycond.Text)
        oF08VR.apeapodconyconddd = UCase(txtapeapodconycond.Text)
        oF08VR.dniconyconddd = UCase(txtdniconycond.Text)
        oF08VR.leconyconddd = UCase(txtleconycond.Text)
        oF08VR.lcconyconddd = UCase(txtlcconycond.Text)
        oF08VR.dniextrconyconddd = UCase(txtdniextrconycond.Text)
        oF08VR.ciextrconyconddd = UCase(txtciextrconycond.Text)
        oF08VR.pasapconyconddd = UCase(txtpasapconycond.Text)
        oF08VR.numdocconyconddd = UCase(txtnumdocconycond.Text)
        oF08VR.autoridadconyconddd = UCase(txtautoridadconycond.Text)
        oF08VR.apecompra = UCase(txtapecomprador.Text)
        oF08VR.dnicompraa = UCase(txtdnicompr.Text)
        oF08VR.lecompraa = UCase(txtlecompr.Text)
        oF08VR.lccompraa = UCase(txtlccompr.Text)
        oF08VR.dniextrcompraa = UCase(txtdniextrcompr.Text)
        oF08VR.ciextrcompraa = UCase(txtciextrcompr.Text)
        oF08VR.pasapcompraa = UCase(txtpasapcompr.Text)
        oF08VR.numdoccompraa = UCase(txtnumdoccompr.Text)
        oF08VR.autoridadcompraa = UCase(txtautoridadcompr.Text)
        oF08VR.apecon = UCase(txtapecondominio.Text)
        oF08VR.dniconn = UCase(txtdnicond.Text)
        oF08VR.leconn = UCase(txtlecond.Text)
        oF08VR.lcconn = UCase(txtlccond.Text)
        oF08VR.dniextrconn = UCase(txtdniextrcond.Text)
        oF08VR.ciextrconn = UCase(txtciextrcond.Text)
        oF08VR.pasapconn = UCase(txtpasapcond.Text)
        oF08VR.numdocconn = UCase(txtnumdoccond.Text)
        oF08VR.autoridadconn = UCase(txtautoridadcond.Text)
        oF08VR.observacioness = UCase(txtobservaciones.Text)
        oF08VR.lugarr = UCase(txtlugar.Text)
        oF08VR.diafechaa = UCase(txtdiafecha.Text)
        oF08VR.mesfechaa = UCase(txtmesfecha.Text)
        oF08VR.añofechaa = UCase(txtañofecha.Text)
        oF08VR.autorizaa = UCase(txtautoriza.Text)
        oF08VR.docnumm = UCase(txtdocnum.Text)
        oF08VR.recibii = UCase(txtrecibi.Text)

        Try
            If oF08VRNegocios.guardarF08VR(oF08VR) Then
                MsgBox("La carga ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarAnverso.Click
        F08_V_anverso_.Show()
    End Sub

    Private Sub btnEditarReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarReverso.Click
        Dim oF08VRNegocios As New Negocios.NF08_VR
        Dim oF08VR As New Entidades.EF08Vehiculos
        oF08VR.porvendd = UCase(txtporvend.Text)
        oF08VR.apenomvendd = UCase(txtapenomvend.Text)
        oF08VR.solterovendd = UCase(txtsolterovend.Text)
        oF08VR.casadovendd = UCase(txtcasadovend.Text)
        oF08VR.viudovendd = UCase(txtviudovend.Text)
        oF08VR.divvendd = UCase(txtdivvend.Text)
        oF08VR.numnupciavendd = UCase(txtnumnupciavend.Text)
        oF08VR.apevendd = UCase(txtapevend.Text)
        oF08VR.dnivendd = UCase(txtdnivend.Text)
        oF08VR.levendd = UCase(txtlevend.Text)
        oF08VR.lcvendd = UCase(txtlcvend.Text)
        oF08VR.dniextrvendd = UCase(txtdniextrvend.Text)
        oF08VR.ciextrvendd = UCase(txtciextrvend.Text)
        oF08VR.pasapvendd = UCase(txtpasapvend.Text)
        oF08VR.numdocvendd = UCase(txtnumdocvend.Text)
        oF08VR.autoridadvendd = UCase(txtautoridadvend.Text)
        oF08VR.apenomconyvendd = UCase(txtapenomconyvend.Text)
        oF08VR.apeapodconyvendd = UCase(txtapeapodconyvend.Text)
        oF08VR.dniconyvendd = UCase(txtdniconyvend.Text)
        oF08VR.leconyvendd = UCase(txtleconyvend.Text)
        oF08VR.lcconyvendd = UCase(txtlcconyvend.Text)
        oF08VR.dniextrconyvendd = UCase(txtdniextrconyvend.Text)
        oF08VR.ciextrconyvendd = UCase(txtciextrconyvend.Text)
        oF08VR.pasapconyvendd = UCase(txtpasapconyvend.Text)
        oF08VR.numdocconyvendd = UCase(txtnumdocconyvend.Text)
        oF08VR.autoridadconyvendd = UCase(txtautoridadconyvend.Text)
        oF08VR.porconddd = UCase(txtporccond.Text)
        oF08VR.apenomconddd = UCase(txtapenomcond.Text)
        oF08VR.solteroconddd = UCase(txtsolterocond.Text)
        oF08VR.casadoconddd = UCase(txtcasadocond.Text)
        oF08VR.viudoconddd = UCase(txtviudocond.Text)
        oF08VR.divconddd = UCase(txtdivcond.Text)
        oF08VR.numnupciaconddd = UCase(txtnumnupciacond.Text)
        oF08VR.apeconddd = UCase(txtapecond.Text)
        oF08VR.dniconddd = UCase(txtdnicond.Text)
        oF08VR.leconddd = UCase(txtlecond.Text)
        oF08VR.lcconddd = UCase(txtlccond.Text)
        oF08VR.dniextrconddd = UCase(txtdniextrcond.Text)
        oF08VR.ciextrconddd = UCase(txtciextrcond.Text)
        oF08VR.pasapconddd = UCase(txtpasapcond.Text)
        oF08VR.numdocconddd = UCase(txtnumdoccond.Text)
        oF08VR.autoridadconddd = UCase(txtautoridadcond.Text)
        oF08VR.apenomconyconddd = UCase(txtapenomconycond.Text)
        oF08VR.apeapodconyconddd = UCase(txtapeapodconycond.Text)
        oF08VR.dniconyconddd = UCase(txtdniconycond.Text)
        oF08VR.leconyconddd = UCase(txtleconycond.Text)
        oF08VR.lcconyconddd = UCase(txtlcconycond.Text)
        oF08VR.dniextrconyconddd = UCase(txtdniextrconycond.Text)
        oF08VR.ciextrconyconddd = UCase(txtciextrconycond.Text)
        oF08VR.pasapconyconddd = UCase(txtpasapconycond.Text)
        oF08VR.numdocconyconddd = UCase(txtnumdocconycond.Text)
        oF08VR.autoridadconyconddd = UCase(txtautoridadconycond.Text)
        oF08VR.apecompra = UCase(txtapecomprador.Text)
        oF08VR.dnicompraa = UCase(txtdnicompr.Text)
        oF08VR.lecompraa = UCase(txtlecompr.Text)
        oF08VR.lccompraa = UCase(txtlccompr.Text)
        oF08VR.dniextrcompraa = UCase(txtdniextrcompr.Text)
        oF08VR.ciextrcompraa = UCase(txtciextrcompr.Text)
        oF08VR.pasapcompraa = UCase(txtpasapcompr.Text)
        oF08VR.numdoccompraa = UCase(txtnumdoccompr.Text)
        oF08VR.autoridadcompraa = UCase(txtautoridadcompr.Text)
        oF08VR.apecon = UCase(txtapecondominio.Text)
        oF08VR.dniconn = UCase(txtdnicond.Text)
        oF08VR.leconn = UCase(txtlecond.Text)
        oF08VR.lcconn = UCase(txtlccond.Text)
        oF08VR.dniextrconn = UCase(txtdniextrcond.Text)
        oF08VR.ciextrconn = UCase(txtciextrcond.Text)
        oF08VR.pasapconn = UCase(txtpasapcond.Text)
        oF08VR.numdocconn = UCase(txtnumdoccond.Text)
        oF08VR.autoridadconn = UCase(txtautoridadcond.Text)
        oF08VR.observacioness = UCase(txtobservaciones.Text)
        oF08VR.lugarr = UCase(txtlugar.Text)
        oF08VR.diafechaa = UCase(txtdiafecha.Text)
        oF08VR.mesfechaa = UCase(txtmesfecha.Text)
        oF08VR.añofechaa = UCase(txtañofecha.Text)
        oF08VR.autorizaa = UCase(txtautoriza.Text)
        oF08VR.docnumm = UCase(txtdocnum.Text)
        oF08VR.recibii = UCase(txtrecibi.Text)


        Try
            If oF08VRNegocios.editarF08VR(oF08VR) Then
                MsgBox("La Edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()
    End Sub

    Private Sub btnF01V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01V.Click
        F01_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01M.Click
        F01_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01I_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01I.Click
        F01_VImp_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02V.Click
        F02_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02M.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF04V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF04V.Click
        F04_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        F04_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08V.Click
        F08_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08M.Click
        F08_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF11V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11V.Click
        F11_V_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11M.Click
        F11_M_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF12V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12V.Click
        F12_V.Show()
        Me.Close()
    End Sub

    Private Sub btnF12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12M.Click
        F12_M.Show()
        Me.Close()
    End Sub

    Private Sub btnF99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF99.Click
        F99.Show()
        Me.Close()
    End Sub

    Private Sub btnF59M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF59M.Click
        F59_M.Show()
        Me.Close()
    End Sub

    Private Sub btnFR00_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFR00.Click
        F_R00.Show()
        Me.Close()
    End Sub

   
End Class
